home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbtimec.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-16  |  2.1 KB  |  42 lines
  1. (*===========================================================================*)
  2. (* Time constants                                                            *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1990, 1991 by H. Roy Engehausen.  All rights      *)
  5. (*   reserved.                                                               *)
  6. (*                                                                           *)
  7. (*===========================================================================*)
  8.  
  9. (*===========================================================================*)
  10. (* Global constants for all timers                                           *)
  11. (*===========================================================================*)
  12.  
  13. CONST
  14.   max_time : LONGINT       = $7FFFFFFF;
  15.  
  16. (*===========================================================================*)
  17. (* Global constant for date/time clock                                       *)
  18. (*===========================================================================*)
  19.  
  20.   secs_per_tick            = 2;
  21.   secs_per_tick_shift      = 1;     (* Shift factor for seconds per tick *)
  22.   ticks_per_min            = 30;
  23.   ticks_per_hour           = ticks_per_min * 60;
  24.   ticks_per_day            = ticks_per_hour * 24;
  25.   days_per_year            = 365;
  26.   days_per_4year : LONGINT = 1461;
  27.  
  28.   y_noleap : ARRAY[1..12] OF INTEGER =
  29.                                (0,31,59,90,120,151,181,212,243,273,304,334);
  30.   y_leap   : ARRAY[1..12] OF INTEGER =
  31.                                (0,31,60,91,121,152,182,213,244,274,305,335);
  32.  
  33. (*===========================================================================*)
  34. (* Global constant for uptime clock                                          *)
  35. (*===========================================================================*)
  36.  
  37.   up_ticks_per_sec         = 100;
  38.   up_ticks_per_min         = 60 * up_ticks_per_sec;
  39.   up_ticks_per_hour        = 60 * up_ticks_per_min;
  40.   up_ticks_per_day         = 24 * up_ticks_per_hour;
  41.  
  42.